home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 22 / 022.d81 / haunted house (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  16.7 KB  |  507 lines
  1. 1 print"[147]":poke53280,0:poke53281,0
  2. 10 if peek(828)<>160 then load"fader.cas.o",8,1
  3. 20 gosub700
  4. 100 gosub 500 : rem * initialize
  5. 110 on rm gosub 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000
  6. 120 goto 110
  7. 150 goto 110
  8. 480 rem *** initialize the game ***
  9. 490 :
  10. 500 tr=-1 : fa=0 : print"[147][153]";:ch=-1:ni=0:kh=-1:bh=-1:rh=-1:wh=-1:sh=-1:ma=-1
  11. 510 poke53280,11 : poke53281,11 : rm=0 :t=rnd(-ti):dim ud(20):mh=-1:sa=-1:sw=10
  12. 520 print"   [217]ou are standing at the door of the"
  13. 530 print"house that has been reputed to be"
  14. 540 print"haunted.  [193]lthough you don't believe"
  15. 550 print"any of the stories you have heard,"
  16. 560 print"something bothers you about this place."
  17. 570 print"[194]rushing aside your silly intuitions,"
  18. 580 print"you decide to enter."
  19. 590 print:print"[212]he only entrance is to your north."
  20. 600 gosub 20000
  21. 610 if dr=0 then 600
  22. 620 if dr=1 then rm=1 : return
  23. 630 print:print"[193]fter thinking it over, you decide that"
  24. 640 print"leaving your mission is not an option." : goto590
  25. 698 rem *** title page ***
  26. 699 :
  27. 700 print"[147]"chr$(142)
  28. 710 print" the                                    "
  29. 720 print"  [209]  [209] [209][209][209][209] [209]  [209] [209]  [209] [209][209][209][209] [209][209][209][209] [209][209][209]    "
  30. 730 print"  [209]  [209] [209]  [209] [209]  [209] [209][209] [209]  [209][209]  [209]    [209]  [209]   "
  31. 740 print"  [209][209][209][209] [209][209][209][209] [209]  [209] [209][209][209][209]  [209][209]  [209][209][209]  [209]  [209]   "
  32. 750 print"  [209]  [209] [209]  [209] [209]  [209] [209] [209][209]  [209][209]  [209]    [209]  [209]   "
  33. 760 print"  [209]  [209] [209]  [209]  [209][209]  [209]  [209]  [209][209]  [209][209][209][209] [209][209][209]  "
  34. 770 print"       [209]  [209]  [209][209]  [209]  [209] [209][209][209][209] [209][209][209][209]    "
  35. 780 print"       [209]  [209] [209]  [209] [209]  [209] [209]    [209]           "
  36. 790 print"       [209][209][209][209] [209]  [209] [209]  [209] [209][209][209][209] [209][209][209]         "
  37. 800 print"       [209]  [209] [209]  [209] [209]  [209]    [209] [209]           "
  38. 810 print"       [209]  [209]  [209][209]   [209][209]  [209][209][209][209] [209][209][209][209]        "
  39. 820 print"by joe garrett
  40. 830 [153]"    loadstar is not public domain."
  41. 840 [153]"  please respect the author's bytes."
  42. 850 [153]"    >>> press a key <<<"
  43. 890 [158]828:[161]t$
  44. 900 [142]
  45. 980 [143] *** the entry ***
  46. 990 :
  47. 1000 [153]:[153]"(NULL)ou are now in the entry hall of the "
  48. 1010 [153]"house.  (NULL)he dust irritates your nose "
  49. 1020 [153]"and cobwebs hang from the ceiling.  atn   stairway is to your north."
  50. 1030 [153]"str$oors are on all other sides."
  51. 1035 [139] fo [167] [153]"(NULL)he front door is wide open."
  52. 1040 [141] 20000
  53. 1042 [139] gt [167] dth[178]2:[137]30000
  54. 1045 [139] lk [167] 1000
  55. 1046 [139] us [167] [141]26000:[153]"(NULL)othing happened.":[137]1040
  56. 1047 [139] dr[178]0 [167] 1040
  57. 1050 [139] dr[178]2 [167] rm[178]5:[142]
  58. 1060 [139] dr[178]4 [167] rm[178]3:[142]
  59. 1070 [139] dr[178]1 [167] [153]"chr$oing up the stairs";:[141]28700  : rm[178]12:[142]
  60. 1075 [139] dr[178]3[175]fo [167] [137]55000
  61. 1080 [139]dr[178]3[167][153]"right$t's locked. (NULL)ou should never have      entered.":[137]1040
  62. 1980 [143] *** lower closet  ***
  63. 1990 :
  64. 2000 [153]"(NULL)ower closet."
  65. 2010 [153]"(NULL)hese clothes are only seen in movies!"
  66. 2020 [153]"chr$lowing letters on the wall read:"
  67. 2030 [153]"   def(NULL)(NULL)(NULL)closeatn(NULL)valcloselen(NULL)(NULL)(NULL)valstr$close(NULL)right$(NULL)left$close(NULL)left$valclosepeek(NULL)atnlen(NULL)close(NULL)(NULL)(NULL)(NULL)"
  68. 2040 [153]"   len(NULL)(NULL)(NULL)val.close(NULL)left$val(NULL)valcloseright$(NULL)close(NULL)(NULL)(NULL)close(NULL)(NULL)close(NULL)val(NULL)(NULL)(NULL)(NULL).print"
  69. 2050 [153]"(NULL)here is a safe here."
  70. 2055 [139] so [167] [153]"right$t is open."
  71. 2060 [153]"(NULL)he only exit is north."
  72. 2100 [141] 20000
  73. 2105 [139] dr[178]2[176]dr[178]3[176]dr[178]4[167][141]27000:[137]2100
  74. 2107 [139] dr[178]1 [167] rm[178]3:[142]
  75. 2110 [139] lk [167] 2000
  76. 2120 [139] ci [167] 2100
  77. 2130 [139] gt [167] [153]"(NULL)ou can't get the safe.":[137]2100
  78. 2140 [139] us [167] [141] 26000
  79. 2150 [139] us$[178]"knife" [167]bk[178][171]1
  80. 2160 [139] bk [167]ri$[178]"knife":[141]28000:ai$[178]"bent knife":[141]28500
  81. 2170 [139] bk [167] [153]"(NULL)he safe bent the knife!":bk[178]0: [137]2100
  82. 2180 [139] us [175] us$[178]"combination"[167][141]50000:[142]
  83. 2700 [153]"(NULL)o effect.":[137]2100
  84. 3000 [153]"(NULL)he lower bedroom."
  85. 3010 [153]"peekefore you is a desk and a twin bed."
  86. 3020 [153]"valxits are north, east, and south.
  87. 3030 gosub 20000
  88. 3040 if lk then 3000
  89. 3050 if ci then 3030
  90. 3060 if dr=4then gosub27000:goto3030
  91. 3070 if dr=1 then rm=6:return
  92. 3080 if dr=2 then rm=1:return
  93. 3090 if dr=3 then rm=2:return
  94. 3100 if gt then print"[212]he furniture would only weigh you down.":goto3030
  95. 3110 if us then gosub26000
  96. 3120 print"[206]o effect.":goto3030
  97. 3980 rem *** the cupboard ***
  98. 3990 :
  99. 4000 print"[212]he kitchen pantry."
  100. 4010 print"[201]t's dark, dusty and full of broken "
  101. 4020 print"shelves. [212]he only exit is north."
  102. 4030 if bh thenprint"[217]ou barely notice a broom behind one of the shelves."
  103. 4040 gosub 20000:ifcithen4040
  104. 4042 if us then gosub 26000:ifus$="" then 4040
  105. 4043 if us and not mc then print"[212]he "us$" had no effect.":goto4040
  106. 4044 if us and mc then print"[193] secret!!!":ai$="treasure":gosub28500:goto55000
  107. 4045 if lk then 4000
  108. 4050 q= gt and bh
  109. 4055 if q then bh=0:ai$="broom":gosub28500:print"[194]room taken.":goto4040
  110. 4060 if dr=1 then rm=5:return
  111. 4070 if dr<>1 then gosub27000:goto4040
  112. 4980 rem *** kitchen ***
  113. 4990 :
  114. 5000 print"[212]he [203]itchen."
  115. 5010 print"[211]mall creatures scatter as you inspect"
  116. 5020 print"the cluttered kitchen. "
  117. 5030 if kh then print"[212]here is a knife on the table."
  118. 5035 if kd thenprint"[211]ome maniac has damaged the kitchen witha knife."
  119. 5037 if mz thenprint"[212]he dust from your sweeping makes you   sneeze."
  120. 5038 print"[212]here are exits to your north, west and south."
  121. 5040 gosub 20000
  122. 5050 if lk then 5000
  123. 5055 if gt and kh then 5110
  124. 5057 if gt and  not kh then 5120
  125. 5058 if us then gosub26000:goto5130
  126. 5060 if dr=0 then 5040
  127. 5070 if dr=4 then rm=1:return
  128. 5080 if dr=1 then rm=7:return
  129. 5090 if dr=3 then rm=4:return
  130. 5100 if dr=2 then gosub27000:goto5040
  131. 5110 print"[203]nife taken.":ni=ni+1:iv$(ni)="knife":kh=0: goto5040
  132. 5120 print"[212]he little creatures are worthless.     [204]eave them alone.":goto5040
  133. 5129 : rem *** use kitchen stuff
  134. 5130 if kcthenprint"[212]he knife does significant damage to thekitchen.":kd=-1
  135. 5140 if bcthenprint"[212]he dust flies and makes you sneeze more.":mz=-1
  136. 5150 if dc thenprint"[212]he little creatures snatch the bat and"
  137. 5160 if dc thenprint"drag it into a hole in the wall."
  138. 5170 if dc thenri$="bat":gosub28000
  139. 5180 print"[217]ou're wasteing time.":goto5040
  140. 5980 rem *** the bathroom ***
  141. 5990 :
  142. 6000 print"[212]he lower bathroom."
  143. 6010 print"[217]ou see ordinary bathroom facilities."
  144. 6020 if wh then print"[212]here is a witch in here that is not"
  145. 6030 if wh then print"pleased with your presence."
  146. 6040 if gl then print"[212]here is a piece of gold here."
  147. 6045 print"[211]outh is the only exit."
  148. 6050 gosub 20000
  149. 6060 if lk then 6000
  150. 6070 if ci then 6050
  151. 6072 if gl and gt then ai$="gold":gosub28500:print"[199]old taken.":gl=0:goto6050
  152. 6074 if wh and gt then print"[196]on't even try to get the witch!":goto6050
  153. 6080 if dr=2ordr=1ordr=4 thengosub27000:goto6050
  154. 6090 q = (dr=3) and wh
  155. 6092 z = (dr=3) and not(wh)
  156. 6100 if q then dth=3:goto30000
  157. 6102 if z then rm=3:return
  158. 6110 if us then wu=wu+1:gosub 26000
  159. 6115 if wu=3 and wh then 6100
  160. 6120 if not wh then print"[206]othing happened.":goto6050
  161. 6125 if wh and mc then print"[211]he knows what she looks like!":goto6050
  162. 6130 if not(wh and us$="broom")thenprint"[212]he witch is agitated further.":goto6050
  163. 6140 print"[193] big smile appears on the witches face."
  164. 6150 print"[145][211]he accepts the broom and flys away":wh=0:ri$="broom":gosub28000
  165. 6155 print"leaving a piece of gold behind.":gl=-1
  166. 6160 goto6050
  167. 6980 rem *** the dining room ***
  168. 6990 :
  169. 7000 print"[212]he dining room."
  170. 7010 print"[217]ou see a table and 3 wobbly chairs."
  171. 7020 if chandnotcd then print"[212]here is a black cat under the table."
  172. 7025 if fh then print"[212]here's a dead cat with a rabbit's foot."
  173. 7030 print"[212]he only exit is south."
  174. 7080 gosub 20000
  175. 7082 if lk then 7000
  176. 7084 if ci then 7080
  177. 7090 if gt and not fh and ch then print"[212]he cat evades your grasp.":goto7080
  178. 7094 q= gt and fh :if q then fh=0:print"[210]abbit's foot taken.":ch=0:rf=-1
  179. 7095 if q thenprint"[212]he cat vanishes!":ni=ni+1:iv$(ni)="rabbits foot":goto7080
  180. 7100 if gt and not ch then print"[212]he furniture would be of no value.":goto7080
  181. 7110 ifdr=1 or dr=2 or dr=4 then gosub27000:goto7080
  182. 7112 if us then gosub 26000
  183. 7113 if us and not ii then 7080
  184. 7114 if dr=3 and not cd then dth=1:goto30000
  185. 7116 if (dr=3 and not ch and not fh)or(dr=3 and cd) then rm=5:return
  186. 7120 if ii and us$<>"bat"then7300
  187. 7130 print"[212]he cat gladly begins to devour the bat":ri$="bat"
  188. 7140 print"only to choke on a wing bone, and keel":gosub 28000
  189. 7150 print"over gasping for breath. [201]t died."
  190. 7160 print"[212]here is of all things, a rabbit's foot"
  191. 7170 print"around the cats neck.":cd=-1:fh=-1
  192. 7180 goto 7080
  193. 7190 if not gt then print"[212]he cat vanishes with a final shreak.":ch=0:goto7080
  194. 7300 if ch thenprint"[215]hat would a cat want with a " us$ "?":goto7080
  195. 7310 print"[206]othing happened.":goto7080
  196. 7980 rem *** lower bedroom ***
  197. 7990 :
  198. 8000 print"[213]pper bedroom #1."
  199. 8010 if rh and not db then print"[212]here is a bat flitting about the room,"
  200. 8020 if rh and not db then print"but he seems harmless."
  201. 8022 print"[212]here's nothing outstanding here."
  202. 8030 if rh and db then print"([197]xcept for a dead bat on the floor.)"
  203. 8040 print "[212]here are exits to the east and south."
  204. 8050 gosub 20000
  205. 8060 if lk then 8000
  206. 8070 if ci then 8050
  207. 8090 if dr=4 or dr=1 then gosub 27000 :goto8050
  208. 8100 if dr=3 then rm=10:return
  209. 8110 if dr=2 then rm=12:return
  210. 8120 q=gt and rh and not db
  211. 8122 x=gt and db and rh
  212. 8124 z=gt and not rh
  213. 8130 if q then print"[212]he bat is much too quick.":goto8050
  214. 8132 if x then print"[196]ead bat taken.":ai$="bat":gosub 28500:rh=0:goto8050
  215. 8134 if z then print"[212]he bed is much too heavy.":goto8050
  216. 8137 if us then gosub 26000:if not ii then 8050
  217. 8140 if us$<>"knife" thenprint"[206]o good.":goto8050
  218. 8150 print"[212]o your own amazement, a lucky hit ":db=-1
  219. 8160 print"knocks the bat to the floor. [212]alk about [194]eginner's luck!":goto8050
  220. 9000 print"[212]he upper bathroom."
  221. 9010 print"[217]ou see a tub, sink, and toilet."
  222. 9020 if sh then print"[193] ghost is hovering above the sink, and he's no [195]asper."
  223. 9025 ifth then print"[193] small chest full of ancient gold coinsis behind the toilet."
  224. 9030 print"[197]xits are south and west."
  225. 9045 if gg>4 then dth=5:goto30000
  226. 9050 gg=gg+1:gosub 20000
  227. 9060 if lk then 9000
  228. 9070 if ci then gg=gg-1:goto 9050
  229. 9080 ifdr=1ordr=2then gg=gg+1:gosub27000:goto9045
  230. 9085 ifdr=3 then rm=11:return
  231. 9087 ifdr=4 then rm=12:return
  232. 9090 if us then gosub 26000:ifus$="" then print"[208]oopoo.":goto9045
  233. 9092 z=gt and th
  234. 9095 ifzthen print"[212]reasure taken.":ai$="treasure":gosub28500:th=0:goto9050
  235. 9096 if us and mc then print"[212]he ghost smashes your mirror.":ri$="mirror"
  236. 9097 if us and mc then gosub 28000:goto9050
  237. 9100 if us$<>"gold" then print"[212]he ghost is getting closer.":goto9045
  238. 9110 print"[212]he ghost speaks:"
  239. 9120 print"[159][212]hat's nothing: look behind the toilet.[153]" :th=-1
  240. 9130 goto9025
  241. 9980 rem *** upper closet
  242. 9990 :
  243. 10000 print"[212]he upper closet."
  244. 10005 if not sa then 10105
  245. 10010 print"[212]here is a living skeleton heading in   your direction."
  246. 10015 if not rf then 10100
  247. 10020 print"[200]e appears to be friendly, and hands"
  248. 10030 print"you a piece of paper. [201]t has "
  249. 10040 print"several numbers on it. [201]t's a "
  250. 10050 print"combination!"
  251. 10060 ai$="combination":gosub28500:ri$="rabbits foot":gosub28000
  252. 10070 ai$="([212]he skeleton stole your rabbits foot)":rf=0: gosub28500
  253. 10080 print"[195]ombination taken. [217]ou have an urge to  press a key on a computer."
  254. 10081 get t$:if t$="" then 10081
  255. 10082 poke53280,1:poke53281,1:fort=1 to 30:nextt:poke53280,11:poke53281,11
  256. 10085 print"[147][201]n a flash of light, the skeleton"
  257. 10087 print"disappears. [215]hen your eyes readjust to":sa=0
  258. 10090 print"the dark, you find you're in the upper"
  259. 10092 print"bathroom! ":rm=9:sys828:     return
  260. 10100 print"[200]is eyes glow with blinding fire."
  261. 10105 print"[212]here are no articles in here."
  262. 10110 print"[197]xits are north and east."
  263. 10120 gosub20000
  264. 10130 if lk then 10000
  265. 10140 if ci then 10120
  266. 10150 if us then gosub26000:goto10159
  267. 10152 if dr=2and not sa then:rm=11:return
  268. 10153 if dr=1and not sa then:rm=8:return
  269. 10155 if sa then 10170
  270. 10159 z=sa and us and mc
  271. 10160 if z then print"[212]he mirror reflected what would have"
  272. 10162 if z then print"been deadly rays for you, back onto the"
  273. 10164 if z then print"skeleton.  [200]e disintegrates.":sa=0:goto10120
  274. 10170 if sa then dth=4:goto30000
  275. 10180 print"[211]ay what?":goto10120
  276. 10980 rem *** upper bedroom 2
  277. 10990 :
  278. 11000 print"[213]pstairs bedroom #2"
  279. 11003 print"[212]here is a large four-poster bed here."
  280. 11004 if mh then print"[212]here's a small mirror here."
  281. 11005 print"[197]xits are to the north and west."
  282. 11010 if mathenprint"[212]here is a very old man here."
  283. 11015 if ma thenprint"[200]e speaks:"
  284. 11020 if ma then gosub 33000
  285. 11025 if not ma then print"[212]here is a dead man here."
  286. 11030 gosub 20000
  287. 11040 if lk then 11000
  288. 11050 if ci then 11030
  289. 11055 z=gt and mh
  290. 11060 if z then print"[205]irror taken.":mh=0:ai$="mirror":gosub28500:goto11030
  291. 11062 z=ma and gt
  292. 11063 z=gt and mh
  293. 11064 if z then print"[212]he old man is reluctant to come with   you.":goto11030
  294. 11065 if z then print"[205]irror taken.":mh=0:ai$="mirror":gosub28500:goto11030
  295. 11070 if gt then print"[212]he bed is much too heavy.":goto11030
  296. 11090 if dr=3 thengosub27000:goto11030
  297. 11100 if dr=1 then rm=12:return
  298. 11105 if dr=2 then rm=9:return
  299. 11110 if dr=4 then rm=10:return
  300. 11120 if us then gosub26000:if not ma then print"[206]othing happened.":goto11030
  301. 11130 if us$="" then print"[212]hat's ridiculous.":goto11030
  302. 11140 ifgcthenprint"[212]he man pockets the gold.":ri$="gold":gosub28000:goto11015
  303. 11150 ifdcthenprint"[212]he man eats the bat.":ri$="bat":gosub28000:goto11015
  304. 11160 if bcthenprint"[207]ne swoop of the broom knocks out what"
  305. 11170 ifbcthenprint"little life remained in the man."
  306. 11180 ifbcthenprint"[212]hat's too bad.":ma=0:goto11030
  307. 11190 ifrc then print"[212]he man accepts the rabbits foot.":ri$="rabbits foot"
  308. 11200 if rc then gosub 28000:goto11015
  309. 11210 if cc then print"[212]he man snatches the combination.":ri$="combination"
  310. 11220 if cc then gosub 28000:goto11015
  311. 11230 if kc then print"[207]ne jab and the man is dead. [212]hat's too bad."
  312. 11240 if kc then ma=0:goto11030
  313. 11250 print"[206]othing.":goto11030
  314. 11980 rem *** upstairs hall ***
  315. 11990 :
  316. 12000 print"[213]pstairs hall."
  317. 12010 print"[212]here are stairs to the north and doors"
  318. 12020 print"on the other walls."
  319. 12030 gosub20000:if c$="" then print"[200]uh?":goto12030
  320. 12040 if lk then 12000
  321. 12050 if ci then 12030
  322. 12060 if dr=1 then print"[199]oing down the stairs";:gosub28700 :rm=1:return
  323. 12070 if dr=2 then rm=9 :return
  324. 12080 if dr=3 then rm=11:return
  325. 12090 if dr=4 then rm=8 :return
  326. 12100 if gt then print"[206]othing here.":goto12030
  327. 12110 if us then gosub26000
  328. 12120 print"[213]sing the "us$" didn't"
  329. 12130 print"accomplish a thing.":goto12030
  330. 19970 stop
  331. 19980 rem *** get command ***
  332. 19990 :
  333. 20000 poke198,0:sx=sx+1
  334. 20005 lk=0: dr=0: us=0:gt=0:c$="":input"[206]ow what";c$ : ci=0
  335. 20010 if c$="n" or c$="north"then dr=1:return
  336. 20015 if c$="" then print"[200]uh?":dr=0:return
  337. 20020 if c$="e" or c$="east"then dr=2:return
  338. 20030 if c$="s" or c$="south"then dr=3:return
  339. 20040 if c$="w" or c$="west"then dr=4:return
  340. 20050 if c$="use" or c$="u" then us=-1 : return
  341. 20055 if c$="get" or c$="g" then gt=-1 : return
  342. 20060 rem if c$="throw" then gosub 22000: return
  343. 20070 rem if c$="wait" then gosub 23000 : return
  344. 20080 rem if c$="eat" then gosub 24000 : return
  345. 20085 if c$="look" or c$="l"then lk=-1 : return
  346. 20090 if c$="i"or c$="inventory"then gosub 25000 : return
  347. 20100 if c$="quit" then poke53280,14:poke53281,6
  348. 20110 if c$="quit" then print"[147][154]  **** [212][200][201][211] [195][207][205][208][213][212][197][210][160][201][211][160][200][193][213][206][212][197][196] ****":goto63000
  349. 20120 print"[212]hat is too complicated to try."
  350. 20130 print"[215]ould you like some suggestions?(y/n)"
  351. 20140 get t$:ift$="" then 20140
  352. 20150 if t$<>"y" then 20000
  353. 20160 print"u[153]se     l[153]ook    g[153]et    quit[153]"
  354. 20170 print"i[153]nventory    "
  355. 20180 print"[196]irections: n[153], s[153], e[153], w[153].
  356. 20190 [137]20000
  357. 24980 [143] *** inventory ***
  358. 24990 :
  359. 25000 [153]"right$nventory:" :ci[178][171]1
  360. 25010 [139]ni[178]0 [167] [153]"(NULL)ot a doggone thing ":[142]
  361. 25020 [129]t[178]1 [164] ni
  362. 25030 [153] iv$(t)
  363. 25040 [130]
  364. 25900 [142]
  365. 25980 [143] *** ;et wh t to use routine
  366. 25990 :
  367. 26000 [141]25000:[139] ni[178]0 [167] [142]
  368. 26005 [133]"(NULL)hat do you want to use";us$
  369. 26007 kc[178]0:bc[178]0:rc[178]0:dc[178]0:gc[178]0:tc[178]0:cc[178]0:mc[178]0
  370. 26010 ii[178]0:[129] t[178]1 [164] ni
  371. 26020 [139] us$[178]iv$(t) [167] ii[178][171]1
  372. 26030 [130]
  373. 26040 [139] ii [167] 26065
  374. 26050 [153]"(NULL)ou don't have a "us$:us$[178]"":[142]
  375. 26065 [139] us$[178]"knife"[167] kc[178][171]1:[142]
  376. 26070 [139] us$[178]"broom"[167] bc[178][171]1:[142]
  377. 26080 [139] us$[178]"rabbits foot"[167] rc[178][171]1:[142]
  378. 26090 [139] us$[178]"bat"[167] dc[178][171]1:[142]
  379. 26100 [139] us$[178]"gold"[167] gc[178][171]1:[142]
  380. 26110 [139] us$[178]"treasure"[167] tc[178][171]1:[142]
  381. 26115 [139] us$[178]"mirror"[167] mc[178][171]1:[142]
  382. 26120 [139] us$[178]"combination"[167] cc[178][171]1:[142]
  383. 26125 [142]
  384. 26130 [153]"loadvalrror-" us$:[144]
  385. 26980 [143] *** bad direction ***
  386. 26990 :
  387. 27000 d[178][181]([187](1)[172]4)[170]1
  388. 27010 [145] d [137] 27020,27030,27040,27050
  389. 27020 [153]"lenan't go that direction.":[142]
  390. 27030 [153]"right$mpossible move.":[142]
  391. 27040 [153]"(NULL)o way mid$ose'.":[142]
  392. 27050 [153]"(NULL)ry again, (NULL)herlock.":[142]
  393. 27980 [143] *** remove something from inv
  394. 27990 :
  395. 28000 [129] t[178]1 [164] ni
  396. 28010 [139] iv$(t)[178]ri$ [167] 28030
  397. 28020 [130] t
  398. 28030 iv$(t)[178]iv$(ni):ni[178]ni[171]1:[142]
  399. 28480 [143] *** add something to inv
  400. 28490 :
  401. 28500 ni[178]ni[170]1:iv$(ni)[178]ai$:[142]
  402. 28700 [129]t[178]1 [164] 3
  403. 28710 [153]".";
  404. 28720 [129] q[178]1 [164] 250: [130] q
  405. 28730 [130] t
  406. 28740 [153] : [142]
  407. 29980 [143] *** process a death ***
  408. 29990 :
  409. 30000 [145] dth [137] 30030,30100,30170,30220,30250
  410. 30010 [153]"loadinvalid death!!!",dth:[144]
  411. 30020 [143] *** killed by a cat
  412. 30030 [153]"atns soon as you turn your back on the "
  413. 30040 [153]"hungry black cat, it leaps onto your"
  414. 30050 [153]"back and chews a fair sized hole in the"
  415. 30060 [153]"side of your neck."
  416. 30070 [153]"(NULL)ou are dead.":[137]31000
  417. 30090 [143] *** grabbed cobwebs
  418. 30100 [153]"right$nstead of you getting the cobwebs, "
  419. 30110 [153]"they got you! (NULL)ound and round they go"
  420. 30120 [153]"getting tighter and tighter, encasing"
  421. 30130 [153]"you in a cocoon which soon suffocates"
  422. 30140 [153]"you."
  423. 30150 [153]"(NULL)ou died.":[137]31000
  424. 30160 [143] *** killed by witch
  425. 30170 [153]"atns you leave the room, you hear the "
  426. 30180 [153]"witch conjuring a spell. (NULL)ou watch in"
  427. 30190 [153]"horror as you change into a black cat."
  428. 30200 [153]"(NULL)ou lost.":[137] 31000
  429. 30210 [143] *** killed by skeleton
  430. 30220 [153]"(NULL)oo late!"
  431. 30222 [153]"(NULL)he fire from his eyes blazes and burns"
  432. 30230 [153]"two large holes through your chest.":[137]30150
  433. 30240 [143] *** killed by ghost
  434. 30250 [153]"(NULL)he ghost manifests his true identity"
  435. 30260 [153]"as an indescribly horrible beast. (NULL)our"
  436. 30270 [153]"heart pounds wildly in your chest, then"
  437. 30280 [153]"stops completely.":[137]30150
  438. 30980 [143] *** finish dieing
  439. 31000 [153]"(NULL)ry again- make my day."
  440. 31010 [153]"(NULL)ress the 'y' key to play again."
  441. 31020 [153]"(NULL)ress the 'n' key to be a loser.
  442. 31030 get t$:ift$="" then 31030
  443. 31040 if t$="y" then run
  444. 31050 if t$="n" then goto63000
  445. 31060 goto 31030
  446. 32280 print"stops completely.":goto30150
  447. 32980 rem *** the man speaks
  448. 32990 :
  449. 33000 q=int(rnd(1)*20)+1
  450. 33005 if so then print"[155]   [217]ou'd better leave [154]now[153].":return
  451. 33010 if ud(q) then 33000
  452. 33015 nu=nu+1 : ud(q)=-1
  453. 33020 if nu=15 then fort=1to20:ud(t)=0:next:nu=0:goto33000
  454. 33030 on q goto33040,33050,33060,33070,33080,33090,33100,33110,33120,33130
  455. 33032 on q-10 goto 33140,33150,33160,33170,33180,33190,33200,33210,33220,33230
  456. 33040 print"[155]   [200]ow's the weather?[153]":return
  457. 33050 print"[155]   [201]'m a little depressed.[153]":return
  458. 33060 print"[155]   23-skidoo![153]":return
  459. 33070 print"[155]   [201] was happy here before...[153]":return
  460. 33080 print"[155]   [207]nce upon a time...[153]":return
  461. 33090 print"[155]   [201] like [194]aby-[210]uths.[153]":return
  462. 33100 print"[155]   [208]lease leave me alone.[153]":return
  463. 33110 print"[155]   [201]'m very tired now...[153]":return
  464. 33120 print"[155]   [199]et lucky to win![153]":return
  465. 33130 print"[155]   [215]here are my glasses?[153]":return
  466. 33140 print"[155]   [200]ave you seen that skeleton?[153]":return
  467. 33150 print"[155]   [201] need a broom.[153]":return
  468. 33160 print"[155]   [215]ant to play cards?[153]":return
  469. 33170 print"[155]   [201]'m pretty spry for my age.[153]":return
  470. 33180 print"[155]   [201] hate it when that happens.[153]":return
  471. 33190 print"[155]   [217]ou must get lucky.[153]":return
  472. 33200 print"[155]   [201] don't want to kill you.[153]":return
  473. 33210 print"[155]   [201] saw a dog fall down.[153]":return
  474. 33220 print"[155]   [199]loom, despair, and agony.[153]":return
  475. 33230 print"[155]   [194]ad luck is your enemy.[153]":return
  476. 50000 print"[213]sing the combination, you open the     safe."
  477. 50010 print"[212]he door flys open and a blast of hot   air blows your hair back."
  478. 50020 print"[217]ou hear a loud noise in the front of"
  479. 50030 print"the house, then the entire house begins to shake."
  480. 50040 print"[211]trange screams of spirits in agony are heard throughout the house."
  481. 50050 print"[215]hen you come to your senses, you find"
  482. 50055 print"yourself in an upper bedroom!.":rm=11
  483. 50070 fo=-1:so=-1:return
  484. 54980 rem *** leave the house
  485. 54990 :
  486. 55000 print"[193] large crowd of mysterious people has"
  487. 55010 print"gathered outside. [212]hey press close      around you."
  488. 55020 print"[196]o you have the gold?"
  489. 55030 gosub 20000
  490. 55040 if lk then 55000
  491. 55050 if ci then 55030
  492. 55060 if gt then print"[212]he crowd is going to get you!":goto55030
  493. 55070 if us then gosub 26000
  494. 55080 if gc then print"[212]he mob is furious! [207]nly one piece of   gold?"
  495. 55090 if gc then 55030
  496. 55100 if tc then 55555
  497. 55110 print"[212]he crowd is not phased by the"
  498. 55120 print us$:goto55030
  499. 55555 print"[215]ell, [201] didn't think you could do it,"
  500. 55560 print"but congratulations. [217]ou've survived"
  501. 55570 print"the haunted house and recovered the"
  502. 55580 print"lost treasure."
  503. 55590 if sx <> 10 then print"[201]t took you" sx "moves. [212]he game can"
  504. 55600 if sx <> 10 then print"be won in 10 moves.":goto 31000
  505. 55610 if sx=10 then print"[150][196]on't think [201] didn't see you cheat![153]":goto31000
  506. 63000 print"wait...":fort=828to1000:poket,0:next:load"hello connect",8
  507.